Module FileSystem
    Public Function GetSave(ByVal Param As List(Of String), ByVal Delimiter As String) As String
        Dim Ret As String = ""

        For Each s As String In Param
            Ret = Ret & s & Delimiter
        Next
        Return Ret
    End Function
    Public Function GetLoad(ByVal S As String, ByVal Delimiter As String) As List(Of String)
        Dim lst As New List(Of String)
        Dim a As New Integer
        Do While Len(S) > 1
            a = InStr(S, Delimiter)
            'MsgBox("HelloGetLoad" & a & (Chr(13)) & S)
            b = Mid(S, 1, a - 1)
            'MsgBox("HelloGetLoad")
            S = Mid(S, a + 1)
            'MsgBox("HelloGetLoad")
            lst.Add(b)
        Loop
        Return lst
    End Function
End Module
